home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume3 / g-format / part2 < prev    next >
Encoding:
Internet Message Format  |  1986-11-30  |  28.8 KB
  1. From: J.D.Aplevich <genrad!decvax!watmath!watdcsu!aplevich>
  2. Subject: G-format compilers for Ultrix/Unix Vaxes (2 of 4)
  3. Newsgroups: mod.sources
  4. Approved: jpn@panda.UUCP
  5.  
  6. Mod.sources:  Volume 3, Issue 38
  7. Submitted by: J.D.Aplevich <decvax!watmath!watdcsu!aplevich>
  8.  
  9.  
  10. #!/bin/sh
  11. # This is a shell archive, meaning:
  12. # 1. Remove everything above the #!/bin/sh line.
  13. # 2. Save the resulting text in a file.
  14. # 3. Execute the file with /bin/sh (not csh) to create the files:
  15. #    gfloat
  16. # This archive created: Tue Oct 29 20:29:25 1985
  17. export PATH; PATH=/bin:$PATH
  18. if test ! -d 'gfloat'
  19. then
  20.     mkdir 'gfloat'
  21. fi
  22. cd 'gfloat'
  23. if test ! -d 'f77'
  24. then
  25.     mkdir 'f77'
  26. fi
  27. cd 'f77'
  28. if test ! -d 'src'
  29. then
  30.     mkdir 'src'
  31. fi
  32. cd 'src'
  33. if test ! -d 'f1'
  34. then
  35.     mkdir 'f1'
  36. fi
  37. cd 'f1'
  38. if test -f 'local2.c.diff'
  39. then
  40.     echo shar: over-writing existing file "'local2.c.diff'"
  41. fi
  42. cat << \SHAR_EOF > 'local2.c.diff'
  43. *** ../f77/src/f1/local2.c.orig    Tue Oct 29 15:16:24 1985
  44. --- ../f77/src/f1/local2.c    Tue Oct 29 15:21:37 1985
  45. ***************
  46. *** 77,82
  47.               printf( "%s", q->opstring );
  48.   /* tbl
  49.               if( f == 'F' ) printf( "e" );
  50.               else if( f == 'D' ) printf( "d" );
  51.      tbl */
  52.   /* tbl */
  53.  
  54. --- 77,83 -----
  55.               printf( "%s", q->opstring );
  56.   /* tbl
  57.               if( f == 'F' ) printf( "e" );
  58. + #ifndef GFLOAT
  59.               else if( f == 'D' ) printf( "d" );
  60.   #else GFLOAT
  61.               else if( f == 'D' ) printf( "g" );
  62. ***************
  63. *** 78,83
  64.   /* tbl
  65.               if( f == 'F' ) printf( "e" );
  66.               else if( f == 'D' ) printf( "d" );
  67.      tbl */
  68.   /* tbl */
  69.               switch( f ) {
  70.  
  71. --- 79,87 -----
  72.               if( f == 'F' ) printf( "e" );
  73.   #ifndef GFLOAT
  74.               else if( f == 'D' ) printf( "d" );
  75. + #else GFLOAT
  76. +             else if( f == 'D' ) printf( "g" );
  77. + #endif GFLOAT
  78.      tbl */
  79.   /* tbl */
  80.               switch( f ) {
  81. ***************
  82. *** 84,89
  83.                   case 'L':
  84.                   case 'W':
  85.                   case 'B':
  86.                   case 'D':
  87.                   case 'F':
  88.                       printf("%c", tolower(f));
  89.  
  90. --- 88,97 -----
  91.                   case 'L':
  92.                   case 'W':
  93.                   case 'B':
  94. + #ifdef GFLOAT
  95. +                     printf("%c", tolower(f));
  96. +                     break;
  97. + #endif GFLOAT
  98.                   case 'D':
  99.   #ifdef GFLOAT
  100.                       printf("g");
  101. ***************
  102. *** 85,90
  103.                   case 'W':
  104.                   case 'B':
  105.                   case 'D':
  106.                   case 'F':
  107.                       printf("%c", tolower(f));
  108.                       break;
  109.  
  110. --- 93,102 -----
  111.                       break;
  112.   #endif GFLOAT
  113.                   case 'D':
  114. + #ifdef GFLOAT
  115. +                     printf("g");
  116. +                     break;
  117. + #endif GFLOAT
  118.                   case 'F':
  119.                       printf("%c", tolower(f));
  120.                       break;
  121. ***************
  122. *** 143,148
  123.       tp = p->in.type;
  124.       tq = q->in.type;
  125.   
  126.       return( (tp==FLOAT || tp==DOUBLE) !=
  127.           (tq==FLOAT || tq==DOUBLE) );
  128.   }
  129.  
  130. --- 155,161 -----
  131.       tp = p->in.type;
  132.       tq = q->in.type;
  133.   
  134. + #ifndef GFLOAT
  135.       return( (tp==FLOAT || tp==DOUBLE) !=
  136.           (tq==FLOAT || tq==DOUBLE) );
  137.   #else GFLOAT
  138. ***************
  139. *** 145,150
  140.   
  141.       return( (tp==FLOAT || tp==DOUBLE) !=
  142.           (tq==FLOAT || tq==DOUBLE) );
  143.   }
  144.   
  145.   prtype(n) NODE *n;
  146.  
  147. --- 158,167 -----
  148.   #ifndef GFLOAT
  149.       return( (tp==FLOAT || tp==DOUBLE) !=
  150.           (tq==FLOAT || tq==DOUBLE) );
  151. + #else GFLOAT
  152. +     return( ((tp==FLOAT || tp==DOUBLE) != (tq==FLOAT || tq==DOUBLE)) ||
  153. +          (tp==FLOAT && tq==DOUBLE) || (tp==DOUBLE && tq==FLOAT) );
  154. + #endif GFLOAT
  155.   }
  156.   
  157.   prtype(n) NODE *n;
  158. ***************
  159. *** 152,157
  160.       switch (n->in.type)
  161.           {
  162.           case DOUBLE:
  163.               printf("d");
  164.               return;
  165.   
  166.  
  167. --- 169,175 -----
  168.       switch (n->in.type)
  169.           {
  170.           case DOUBLE:
  171. + #ifndef GFLOAT
  172.               printf("d");
  173.   #else GFLOAT
  174.               printf("g");
  175. ***************
  176. *** 153,158
  177.           {
  178.           case DOUBLE:
  179.               printf("d");
  180.               return;
  181.   
  182.           case FLOAT:
  183.  
  184. --- 171,179 -----
  185.           case DOUBLE:
  186.   #ifndef GFLOAT
  187.               printf("d");
  188. + #else GFLOAT
  189. +             printf("g");
  190. + #endif GFLOAT
  191.               return;
  192.   
  193.           case FLOAT:
  194. ***************
  195. *** 386,391
  196.   
  197.           if (xdebug) printf("->%d<-", ty);
  198.   
  199.           if ( ty==DOUBLE) printf("d");
  200.           else if ( ty==FLOAT ) printf("f");
  201.           else printf("l");
  202.  
  203. --- 407,413 -----
  204.   
  205.           if (xdebug) printf("->%d<-", ty);
  206.   
  207. + #ifndef GFLOAT
  208.           if ( ty==DOUBLE) printf("d");
  209.   #else GFLOAT
  210.           if ( ty==DOUBLE) printf("g");
  211. ***************
  212. *** 387,392
  213.           if (xdebug) printf("->%d<-", ty);
  214.   
  215.           if ( ty==DOUBLE) printf("d");
  216.           else if ( ty==FLOAT ) printf("f");
  217.           else printf("l");
  218.           return;
  219.  
  220. --- 409,417 -----
  221.   
  222.   #ifndef GFLOAT
  223.           if ( ty==DOUBLE) printf("d");
  224. + #else GFLOAT
  225. +         if ( ty==DOUBLE) printf("g");
  226. + #endif GFLOAT
  227.           else if ( ty==FLOAT ) printf("f");
  228.           else printf("l");
  229.           return;
  230. ***************
  231. *** 483,488
  232.   
  233.   rmove( rt, rs, t ){
  234.       printf( "    %s    %s,%s\n",
  235.           (t==FLOAT ? "movf" : (t==DOUBLE ? "movd" : "movl")),
  236.           rnames[rs], rnames[rt] );
  237.       }
  238.  
  239. --- 508,514 -----
  240.   
  241.   rmove( rt, rs, t ){
  242.       printf( "    %s    %s,%s\n",
  243. + #ifndef GFLOAT
  244.           (t==FLOAT ? "movf" : (t==DOUBLE ? "movd" : "movl")),
  245.   #else GFLOAT
  246.           (t==FLOAT ? "movf" : (t==DOUBLE ? "movg" : "movl")),
  247. ***************
  248. *** 484,489
  249.   rmove( rt, rs, t ){
  250.       printf( "    %s    %s,%s\n",
  251.           (t==FLOAT ? "movf" : (t==DOUBLE ? "movd" : "movl")),
  252.           rnames[rs], rnames[rt] );
  253.       }
  254.   
  255.  
  256. --- 510,518 -----
  257.       printf( "    %s    %s,%s\n",
  258.   #ifndef GFLOAT
  259.           (t==FLOAT ? "movf" : (t==DOUBLE ? "movd" : "movl")),
  260. + #else GFLOAT
  261. +         (t==FLOAT ? "movf" : (t==DOUBLE ? "movg" : "movl")),
  262. + #endif GFLOAT
  263.           rnames[rs], rnames[rt] );
  264.       }
  265.   
  266. SHAR_EOF
  267. chmod +x 'local2.c.diff'
  268. if test -f 'otable.c.diff'
  269. then
  270.     echo shar: over-writing existing file "'otable.c.diff'"
  271. fi
  272. cat << \SHAR_EOF > 'otable.c.diff'
  273. *** ../f77/src/f1/otable.c.orig    Tue Oct 29 15:16:27 1985
  274. --- ../f77/src/f1/otable.c    Tue Oct 29 15:21:44 1985
  275. ***************
  276. *** 45,50
  277.       SAREG|AWD,    TDOUBLE,
  278.       SANY,    TFLOAT,
  279.           NAREG|NASL,    RESC1|RESCC,
  280.           "    cvtdf    AL,A1\n",
  281.   
  282.   SCONV,    INTAREG|FORCC,
  283.  
  284. --- 45,51 -----
  285.       SAREG|AWD,    TDOUBLE,
  286.       SANY,    TFLOAT,
  287.           NAREG|NASL,    RESC1|RESCC,
  288. + #ifndef GFLOAT
  289.           "    cvtdf    AL,A1\n",
  290.   #else GFLOAT
  291.           "    cvtgf    AL,A1\n",
  292. ***************
  293. *** 46,51
  294.       SANY,    TFLOAT,
  295.           NAREG|NASL,    RESC1|RESCC,
  296.           "    cvtdf    AL,A1\n",
  297.   
  298.   SCONV,    INTAREG|FORCC,
  299.       SAREG|AWD,    ANYSIGNED|TUNSIGNED|TULONG|TFLOAT,
  300.  
  301. --- 47,55 -----
  302.           NAREG|NASL,    RESC1|RESCC,
  303.   #ifndef GFLOAT
  304.           "    cvtdf    AL,A1\n",
  305. + #else GFLOAT
  306. +         "    cvtgf    AL,A1\n",
  307. + #endif GFLOAT
  308.   
  309.   SCONV,    INTAREG|FORCC,
  310.       SAREG|AWD,    ANYSIGNED|TUNSIGNED|TULONG|TFLOAT,
  311. ***************
  312. *** 70,75
  313.       SAREG|AWD,    TUCHAR|TUSHORT,
  314.       SANY,    TFLOAT|TDOUBLE,
  315.           NAREG|NASL,    RESC1|RESCC,
  316.           "    movzZLl    AL,A1\n    cvtld    A1,A1\n",
  317.   
  318.   SCONV,    INTAREG|FORCC,
  319.  
  320. --- 74,80 -----
  321.       SAREG|AWD,    TUCHAR|TUSHORT,
  322.       SANY,    TFLOAT|TDOUBLE,
  323.           NAREG|NASL,    RESC1|RESCC,
  324. + #ifndef GFLOAT
  325.           "    movzZLl    AL,A1\n    cvtld    A1,A1\n",
  326.   #else GFLOAT
  327.           "    movzZLl    AL,A1\n    cvtlg    A1,A1\n",
  328. ***************
  329. *** 71,76
  330.       SANY,    TFLOAT|TDOUBLE,
  331.           NAREG|NASL,    RESC1|RESCC,
  332.           "    movzZLl    AL,A1\n    cvtld    A1,A1\n",
  333.   
  334.   SCONV,    INTAREG|FORCC,
  335.       SAREG|AWD,    TFLOAT|TDOUBLE,
  336.  
  337. --- 76,84 -----
  338.           NAREG|NASL,    RESC1|RESCC,
  339.   #ifndef GFLOAT
  340.           "    movzZLl    AL,A1\n    cvtld    A1,A1\n",
  341. + #else GFLOAT
  342. +         "    movzZLl    AL,A1\n    cvtlg    A1,A1\n",
  343. + #endif GFLOAT
  344.   
  345.   SCONV,    INTAREG|FORCC,
  346.       SAREG|AWD,    TFLOAT|TDOUBLE,
  347. ***************
  348. *** 229,234
  349.       SAREG|AWD,    TDOUBLE,
  350.       SAREG|AWD,    TDOUBLE,
  351.           0,    RESCC,
  352.           "    cmpd    AL,AR\nZP",
  353.   
  354.   OPLOG,    FORCC,
  355.  
  356. --- 237,243 -----
  357.       SAREG|AWD,    TDOUBLE,
  358.       SAREG|AWD,    TDOUBLE,
  359.           0,    RESCC,
  360. + #ifndef GFLOAT
  361.           "    cmpd    AL,AR\nZP",
  362.   #else GFLOAT
  363.           "    cmpg    AL,AR\nZP",
  364. ***************
  365. *** 230,235
  366.       SAREG|AWD,    TDOUBLE,
  367.           0,    RESCC,
  368.           "    cmpd    AL,AR\nZP",
  369.   
  370.   OPLOG,    FORCC,
  371.       SAREG|AWD,    TDOUBLE,
  372.  
  373. --- 239,247 -----
  374.           0,    RESCC,
  375.   #ifndef GFLOAT
  376.           "    cmpd    AL,AR\nZP",
  377. + #else GFLOAT
  378. +         "    cmpg    AL,AR\nZP",
  379. + #endif GFLOAT
  380.   
  381.   OPLOG,    FORCC,
  382.       SAREG|AWD,    TDOUBLE,
  383. ***************
  384. *** 235,240
  385.       SAREG|AWD,    TDOUBLE,
  386.       SAREG|AWD,    TFLOAT,
  387.           NAREG|NASR,    RESCC,
  388.           "    cvtfd    AR,A1\n    cmpd    AL,A1\nZP",
  389.   
  390.   OPLOG,    FORCC,
  391.  
  392. --- 247,253 -----
  393.       SAREG|AWD,    TDOUBLE,
  394.       SAREG|AWD,    TFLOAT,
  395.           NAREG|NASR,    RESCC,
  396. + #ifndef GFLOAT
  397.           "    cvtfd    AR,A1\n    cmpd    AL,A1\nZP",
  398.   #else GFLOAT
  399.           "    cvtfg    AR,A1\n    cmpg    AL,A1\nZP",
  400. ***************
  401. *** 236,241
  402.       SAREG|AWD,    TFLOAT,
  403.           NAREG|NASR,    RESCC,
  404.           "    cvtfd    AR,A1\n    cmpd    AL,A1\nZP",
  405.   
  406.   OPLOG,    FORCC,
  407.       SAREG|AWD,    TFLOAT,
  408.  
  409. --- 249,257 -----
  410.           NAREG|NASR,    RESCC,
  411.   #ifndef GFLOAT
  412.           "    cvtfd    AR,A1\n    cmpd    AL,A1\nZP",
  413. + #else GFLOAT
  414. +         "    cvtfg    AR,A1\n    cmpg    AL,A1\nZP",
  415. + #endif GFLOAT
  416.   
  417.   OPLOG,    FORCC,
  418.       SAREG|AWD,    TFLOAT,
  419. ***************
  420. *** 241,246
  421.       SAREG|AWD,    TFLOAT,
  422.       SAREG|AWD,    TDOUBLE,
  423.           NAREG|NASL,    RESCC,
  424.           "    cvtfd    AL,A1\n    cmpd    A1,AR\nZP",
  425.   
  426.   OPLOG,    FORCC,
  427.  
  428. --- 257,263 -----
  429.       SAREG|AWD,    TFLOAT,
  430.       SAREG|AWD,    TDOUBLE,
  431.           NAREG|NASL,    RESCC,
  432. + #ifndef GFLOAT
  433.           "    cvtfd    AL,A1\n    cmpd    A1,AR\nZP",
  434.   #else GFLOAT
  435.           "    cvtfg    AL,A1\n    cmpg    A1,AR\nZP",
  436. ***************
  437. *** 242,247
  438.       SAREG|AWD,    TDOUBLE,
  439.           NAREG|NASL,    RESCC,
  440.           "    cvtfd    AL,A1\n    cmpd    A1,AR\nZP",
  441.   
  442.   OPLOG,    FORCC,
  443.       SAREG|AWD,    TFLOAT,
  444.  
  445. --- 259,267 -----
  446.           NAREG|NASL,    RESCC,
  447.   #ifndef GFLOAT
  448.           "    cvtfd    AL,A1\n    cmpd    A1,AR\nZP",
  449. + #else GFLOAT
  450. +         "    cvtfg    AL,A1\n    cmpg    A1,AR\nZP",
  451. + #endif GFLOAT
  452.   
  453.   OPLOG,    FORCC,
  454.       SAREG|AWD,    TFLOAT,
  455. ***************
  456. *** 260,265
  457.       SCON,    TANY,
  458.       SANY,    TFLOAT,
  459.           NAREG|NASL,    RESC1,
  460.           "    calls    ZC,CL\n    cvtdf    r0,r0\n",
  461.   
  462.   UNARY CALL,    INTAREG,
  463.  
  464. --- 280,286 -----
  465.       SCON,    TANY,
  466.       SANY,    TFLOAT,
  467.           NAREG|NASL,    RESC1,
  468. + #ifndef GFLOAT
  469.           "    calls    ZC,CL\n    cvtdf    r0,r0\n",
  470.   #else GFLOAT
  471.           "    calls    ZC,CL\n    cvtgf    r0,r0\n",
  472. ***************
  473. *** 261,266
  474.       SANY,    TFLOAT,
  475.           NAREG|NASL,    RESC1,
  476.           "    calls    ZC,CL\n    cvtdf    r0,r0\n",
  477.   
  478.   UNARY CALL,    INTAREG,
  479.       SCON,    TANY,
  480.  
  481. --- 282,290 -----
  482.           NAREG|NASL,    RESC1,
  483.   #ifndef GFLOAT
  484.           "    calls    ZC,CL\n    cvtdf    r0,r0\n",
  485. + #else GFLOAT
  486. +         "    calls    ZC,CL\n    cvtgf    r0,r0\n",
  487. + #endif GFLOAT
  488.   
  489.   UNARY CALL,    INTAREG,
  490.       SCON,    TANY,
  491. ***************
  492. *** 440,445
  493.       SANY,    TANY,
  494.       SAREG,    TDOUBLE,
  495.           2*NTEMP,    RESC1,
  496.           "    movd    AR,A1\n",
  497.   
  498.   REG,    INTEMP,
  499.  
  500. --- 464,470 -----
  501.       SANY,    TANY,
  502.       SAREG,    TDOUBLE,
  503.           2*NTEMP,    RESC1,
  504. + #ifndef GFLOAT
  505.           "    movd    AR,A1\n",
  506.   #else GFLOAT
  507.           "    movg    AR,A1\n",
  508. ***************
  509. *** 441,446
  510.       SAREG,    TDOUBLE,
  511.           2*NTEMP,    RESC1,
  512.           "    movd    AR,A1\n",
  513.   
  514.   REG,    INTEMP,
  515.       SANY,    TANY,
  516.  
  517. --- 466,474 -----
  518.           2*NTEMP,    RESC1,
  519.   #ifndef GFLOAT
  520.           "    movd    AR,A1\n",
  521. + #else GFLOAT
  522. +         "    movg    AR,A1\n",
  523. + #endif GFLOAT
  524.   
  525.   REG,    INTEMP,
  526.       SANY,    TANY,
  527. ***************
  528. *** 453,458
  529.       SANY,    TANY,
  530.       SAREG,    TFLOAT,
  531.           0,    RNULL,
  532.           "    cvtfd    AR,-(sp)\n",
  533.   
  534.   REG,    FORARG,
  535.  
  536. --- 481,487 -----
  537.       SANY,    TANY,
  538.       SAREG,    TFLOAT,
  539.           0,    RNULL,
  540. + #ifndef GFLOAT
  541.           "    cvtfd    AR,-(sp)\n",
  542.   #else GFLOAT
  543.           "    cvtfg    AR,-(sp)\n",
  544. ***************
  545. *** 454,459
  546.       SAREG,    TFLOAT,
  547.           0,    RNULL,
  548.           "    cvtfd    AR,-(sp)\n",
  549.   
  550.   REG,    FORARG,
  551.       SANY,    TANY,
  552.  
  553. --- 483,491 -----
  554.           0,    RNULL,
  555.   #ifndef GFLOAT
  556.           "    cvtfd    AR,-(sp)\n",
  557. + #else GFLOAT
  558. +         "    cvtfg    AR,-(sp)\n",
  559. + #endif GFLOAT
  560.   
  561.   REG,    FORARG,
  562.       SANY,    TANY,
  563. ***************
  564. *** 508,513
  565.       SANY,    TANY,
  566.       SANY,    TDOUBLE,
  567.           0,    RNULL,
  568.           "    movd    AR,-(sp)\n",
  569.   
  570.   OPLTYPE,    FORARG,
  571.  
  572. --- 540,546 -----
  573.       SANY,    TANY,
  574.       SANY,    TDOUBLE,
  575.           0,    RNULL,
  576. + #ifndef GFLOAT
  577.           "    movd    AR,-(sp)\n",
  578.   #else GFLOAT
  579.           "    movg    AR,-(sp)\n",
  580. ***************
  581. *** 509,514
  582.       SANY,    TDOUBLE,
  583.           0,    RNULL,
  584.           "    movd    AR,-(sp)\n",
  585.   
  586.   OPLTYPE,    FORARG,
  587.       SANY,    TANY,
  588.  
  589. --- 542,550 -----
  590.           0,    RNULL,
  591.   #ifndef GFLOAT
  592.           "    movd    AR,-(sp)\n",
  593. + #else GFLOAT
  594. +         "    movg    AR,-(sp)\n",
  595. + #endif GFLOAT
  596.   
  597.   OPLTYPE,    FORARG,
  598.       SANY,    TANY,
  599. ***************
  600. *** 514,519
  601.       SANY,    TANY,
  602.       SANY,    TFLOAT,
  603.           0,    RNULL,
  604.           "    cvtfd    AR,-(sp)\n",
  605.   
  606.   #ifdef FORT
  607.  
  608. --- 550,556 -----
  609.       SANY,    TANY,
  610.       SANY,    TFLOAT,
  611.           0,    RNULL,
  612. + #ifndef GFLOAT
  613.           "    cvtfd    AR,-(sp)\n",
  614.   #else GFLOAT
  615.           "    cvtfg    AR,-(sp)\n",
  616. ***************
  617. *** 515,520
  618.       SANY,    TFLOAT,
  619.           0,    RNULL,
  620.           "    cvtfd    AR,-(sp)\n",
  621.   
  622.   #ifdef FORT
  623.   UNARY MINUS,    INTAREG|FORCC,
  624.  
  625. --- 552,560 -----
  626.           0,    RNULL,
  627.   #ifndef GFLOAT
  628.           "    cvtfd    AR,-(sp)\n",
  629. + #else GFLOAT
  630. +         "    cvtfg    AR,-(sp)\n",
  631. + #endif GFLOAT
  632.   
  633.   #ifdef FORT
  634.   UNARY MINUS,    INTAREG|FORCC,
  635. ***************
  636. *** 770,775
  637.       SAREG|AWD,    TDOUBLE,
  638.       SAREG|AWD,    TFLOAT,
  639.           NAREG,    RLEFT|RESCC,
  640.           "    cvtfd    AR,A1\n    OD2    A1,AL\n",
  641.   
  642.   ASG OPFLOAT,    INAREG|INTAREG|FOREFF|FORCC,
  643.  
  644. --- 810,816 -----
  645.       SAREG|AWD,    TDOUBLE,
  646.       SAREG|AWD,    TFLOAT,
  647.           NAREG,    RLEFT|RESCC,
  648. + #ifndef GFLOAT
  649.           "    cvtfd    AR,A1\n    OD2    A1,AL\n",
  650.   #else GFLOAT
  651.           "    cvtfg    AR,A1\n    OD2    A1,AL\n",
  652. ***************
  653. *** 771,776
  654.       SAREG|AWD,    TFLOAT,
  655.           NAREG,    RLEFT|RESCC,
  656.           "    cvtfd    AR,A1\n    OD2    A1,AL\n",
  657.   
  658.   ASG OPFLOAT,    INAREG|INTAREG|FOREFF|FORCC,
  659.       SAREG|AWD,    TFLOAT,
  660.  
  661. --- 812,820 -----
  662.           NAREG,    RLEFT|RESCC,
  663.   #ifndef GFLOAT
  664.           "    cvtfd    AR,A1\n    OD2    A1,AL\n",
  665. + #else GFLOAT
  666. +         "    cvtfg    AR,A1\n    OD2    A1,AL\n",
  667. + #endif GFLOAT
  668.   
  669.   ASG OPFLOAT,    INAREG|INTAREG|FOREFF|FORCC,
  670.       SAREG|AWD,    TFLOAT,
  671. ***************
  672. *** 776,781
  673.       SAREG|AWD,    TFLOAT,
  674.       SAREG|AWD,    TDOUBLE,
  675.           NAREG,    RLEFT|RESC1|RESCC,
  676.           "    cvtfd    AL,A1\n    OD2    AR,A1\n    cvtdf    A1,AL\n",
  677.   
  678.   OPFLOAT,    INAREG|INTAREG|FORCC,
  679.  
  680. --- 820,826 -----
  681.       SAREG|AWD,    TFLOAT,
  682.       SAREG|AWD,    TDOUBLE,
  683.           NAREG,    RLEFT|RESC1|RESCC,
  684. + #ifndef GFLOAT
  685.           "    cvtfd    AL,A1\n    OD2    AR,A1\n    cvtdf    A1,AL\n",
  686.   #else GFLOAT
  687.           "    cvtfg    AL,A1\n    OD2    AR,A1\n    cvtgf    A1,AL\n",
  688. ***************
  689. *** 777,782
  690.       SAREG|AWD,    TDOUBLE,
  691.           NAREG,    RLEFT|RESC1|RESCC,
  692.           "    cvtfd    AL,A1\n    OD2    AR,A1\n    cvtdf    A1,AL\n",
  693.   
  694.   OPFLOAT,    INAREG|INTAREG|FORCC,
  695.       STAREG,    TDOUBLE,
  696.  
  697. --- 822,830 -----
  698.           NAREG,    RLEFT|RESC1|RESCC,
  699.   #ifndef GFLOAT
  700.           "    cvtfd    AL,A1\n    OD2    AR,A1\n    cvtdf    A1,AL\n",
  701. + #else GFLOAT
  702. +         "    cvtfg    AL,A1\n    OD2    AR,A1\n    cvtgf    A1,AL\n",
  703. + #endif GFLOAT
  704.   
  705.   OPFLOAT,    INAREG|INTAREG|FORCC,
  706.       STAREG,    TDOUBLE,
  707. ***************
  708. *** 794,799
  709.       SAREG|AWD,    TFLOAT,
  710.       SAREG|AWD,    TDOUBLE,
  711.           NAREG|NASL,    RESC1|RESCC,
  712.           "    cvtfd    AL,A1\n    OD2    AR,A1\n",
  713.   
  714.   OPFLOAT,    INAREG|INTAREG|FORCC,
  715.  
  716. --- 842,848 -----
  717.       SAREG|AWD,    TFLOAT,
  718.       SAREG|AWD,    TDOUBLE,
  719.           NAREG|NASL,    RESC1|RESCC,
  720. + #ifndef GFLOAT
  721.           "    cvtfd    AL,A1\n    OD2    AR,A1\n",
  722.   #else GFLOAT
  723.           "    cvtfg    AL,A1\n    OD2    AR,A1\n",
  724. ***************
  725. *** 795,800
  726.       SAREG|AWD,    TDOUBLE,
  727.           NAREG|NASL,    RESC1|RESCC,
  728.           "    cvtfd    AL,A1\n    OD2    AR,A1\n",
  729.   
  730.   OPFLOAT,    INAREG|INTAREG|FORCC,
  731.       SAREG|AWD,    TDOUBLE,
  732.  
  733. --- 844,852 -----
  734.           NAREG|NASL,    RESC1|RESCC,
  735.   #ifndef GFLOAT
  736.           "    cvtfd    AL,A1\n    OD2    AR,A1\n",
  737. + #else GFLOAT
  738. +         "    cvtfg    AL,A1\n    OD2    AR,A1\n",
  739. + #endif GFLOAT
  740.   
  741.   OPFLOAT,    INAREG|INTAREG|FORCC,
  742.       SAREG|AWD,    TDOUBLE,
  743. ***************
  744. *** 800,805
  745.       SAREG|AWD,    TDOUBLE,
  746.       SAREG|AWD,    TFLOAT,
  747.           NAREG|NASR,    RESC1|RESCC,
  748.           "    cvtfd    AR,A1\n    OD3    A1,AL,A1\n",
  749.   
  750.   #ifdef FORT
  751.  
  752. --- 852,858 -----
  753.       SAREG|AWD,    TDOUBLE,
  754.       SAREG|AWD,    TFLOAT,
  755.           NAREG|NASR,    RESC1|RESCC,
  756. + #ifndef GFLOAT
  757.           "    cvtfd    AR,A1\n    OD3    A1,AL,A1\n",
  758.   #else GFLOAT
  759.           "    cvtfg    AR,A1\n    OD3    A1,AL,A1\n",
  760. ***************
  761. *** 801,806
  762.       SAREG|AWD,    TFLOAT,
  763.           NAREG|NASR,    RESC1|RESCC,
  764.           "    cvtfd    AR,A1\n    OD3    A1,AL,A1\n",
  765.   
  766.   #ifdef FORT
  767.   OPFLOAT,    INAREG|INTAREG|FORCC,
  768.  
  769. --- 854,862 -----
  770.           NAREG|NASR,    RESC1|RESCC,
  771.   #ifndef GFLOAT
  772.           "    cvtfd    AR,A1\n    OD3    A1,AL,A1\n",
  773. + #else GFLOAT
  774. +         "    cvtfg    AR,A1\n    OD3    A1,AL,A1\n",
  775. + #endif GFLOAT
  776.   
  777.   #ifdef FORT
  778.   OPFLOAT,    INAREG|INTAREG|FORCC,
  779. ***************
  780. *** 820,825
  781.       SAREG|AWD,    TFLOAT,
  782.       SAREG|AWD,    TFLOAT,
  783.           NAREG|NASL|NASR,    RESC1|RESCC,
  784.           "    OF3    AR,AL,A1\n    cvtfd    A1,A1\n",
  785.   #endif
  786.   
  787.  
  788. --- 876,882 -----
  789.       SAREG|AWD,    TFLOAT,
  790.       SAREG|AWD,    TFLOAT,
  791.           NAREG|NASL|NASR,    RESC1|RESCC,
  792. + #ifndef GFLOAT
  793.           "    OF3    AR,AL,A1\n    cvtfd    A1,A1\n",
  794.   #else GFLOAT
  795.           "    OF3    AR,AL,A1\n    cvtfg    A1,A1\n",
  796. ***************
  797. *** 821,826
  798.       SAREG|AWD,    TFLOAT,
  799.           NAREG|NASL|NASR,    RESC1|RESCC,
  800.           "    OF3    AR,AL,A1\n    cvtfd    A1,A1\n",
  801.   #endif
  802.   
  803.       /* Default actions for hard trees ... */
  804.  
  805. --- 878,886 -----
  806.           NAREG|NASL|NASR,    RESC1|RESCC,
  807.   #ifndef GFLOAT
  808.           "    OF3    AR,AL,A1\n    cvtfd    A1,A1\n",
  809. + #else GFLOAT
  810. +         "    OF3    AR,AL,A1\n    cvtfg    A1,A1\n",
  811. + #endif GFLOAT
  812.   #endif
  813.   
  814.       /* Default actions for hard trees ... */
  815. SHAR_EOF
  816. chmod +x 'otable.c.diff'
  817. if test -f 'Makefile.diff'
  818. then
  819.     echo shar: over-writing existing file "'Makefile.diff'"
  820. fi
  821. cat << \SHAR_EOF > 'Makefile.diff'
  822. *** ../f77/src/f1/Makefile.orig    Tue Oct 29 15:16:21 1985
  823. --- ../f77/src/f1/Makefile    Tue Oct 29 15:21:54 1985
  824. ***************
  825. *** 2,8
  826.   #
  827.   
  828.   CFLAGS          = -O -DASSTRINGS -DSTABDOT -DLCOMM -DBUFSTDERR -DFLEXNAMES \
  829. !         -I$M -I.
  830.   
  831.   DEST          = $(DESTROOT)/lib
  832.   
  833.  
  834. --- 2,8 -----
  835.   #
  836.   
  837.   CFLAGS          = -O -DASSTRINGS -DSTABDOT -DLCOMM -DBUFSTDERR -DFLEXNAMES \
  838. !         -DGFLOAT -I$M -I.
  839.   
  840.   DEST          = $(DESTROOT)/lib
  841.   
  842. SHAR_EOF
  843. chmod +x 'Makefile.diff'
  844. if test -f 'table.c.diff'
  845. then
  846.     echo shar: over-writing existing file "'table.c.diff'"
  847. fi
  848. cat << \SHAR_EOF > 'table.c.diff'
  849. *** ../f77/src/f1/table.c.orig    Tue Oct 29 15:16:28 1985
  850. --- ../f77/src/f1/table.c    Tue Oct 29 15:21:50 1985
  851. ***************
  852. *** 89,94
  853.       SAREG|AWD,    TDOUBLE,
  854.       SANY,    TFLOAT,
  855.           NAREG|NASL,    RESC1|RESCC,
  856.           "    cvtdf    AL,A1\n",
  857.   
  858.   SCONV,    INTAREG|FORCC,
  859.  
  860. --- 89,95 -----
  861.       SAREG|AWD,    TDOUBLE,
  862.       SANY,    TFLOAT,
  863.           NAREG|NASL,    RESC1|RESCC,
  864. + #ifndef GFLOAT
  865.           "    cvtdf    AL,A1\n",
  866.   #else GFLOAT
  867.           "    cvtgf    AL,A1\n",
  868. ***************
  869. *** 90,95
  870.       SANY,    TFLOAT,
  871.           NAREG|NASL,    RESC1|RESCC,
  872.           "    cvtdf    AL,A1\n",
  873.   
  874.   SCONV,    INTAREG|FORCC,
  875.       SAREG|AWD,    ANYSIGNED|TUNSIGNED|TULONG|TFLOAT,
  876.  
  877. --- 91,99 -----
  878.           NAREG|NASL,    RESC1|RESCC,
  879.   #ifndef GFLOAT
  880.           "    cvtdf    AL,A1\n",
  881. + #else GFLOAT
  882. +         "    cvtgf    AL,A1\n",
  883. + #endif GFLOAT
  884.   
  885.   SCONV,    INTAREG|FORCC,
  886.       SAREG|AWD,    ANYSIGNED|TUNSIGNED|TULONG|TFLOAT,
  887. ***************
  888. *** 108,113
  889.       SAREG|AWD,    ANYSIGNED|TUNSIGNED|TULONG|TFLOAT,
  890.       SANY,    TFLOAT|TDOUBLE,
  891.           NAREG|NASL,    RESC1|RESCC,
  892.           "    cvtZLd    AL,A1\n",
  893.   
  894.   SCONV,    INTAREG|FORCC,
  895.  
  896. --- 112,118 -----
  897.       SAREG|AWD,    ANYSIGNED|TUNSIGNED|TULONG|TFLOAT,
  898.       SANY,    TFLOAT|TDOUBLE,
  899.           NAREG|NASL,    RESC1|RESCC,
  900. + #ifndef GFLOAT
  901.           "    cvtZLd    AL,A1\n",
  902.   #else GFLOAT
  903.           "    cvtZLg    AL,A1\n",
  904. ***************
  905. *** 109,114
  906.       SANY,    TFLOAT|TDOUBLE,
  907.           NAREG|NASL,    RESC1|RESCC,
  908.           "    cvtZLd    AL,A1\n",
  909.   
  910.   SCONV,    INTAREG|FORCC,
  911.       SAREG|AWD,    TUCHAR|TUSHORT,
  912.  
  913. --- 114,122 -----
  914.           NAREG|NASL,    RESC1|RESCC,
  915.   #ifndef GFLOAT
  916.           "    cvtZLd    AL,A1\n",
  917. + #else GFLOAT
  918. +         "    cvtZLg    AL,A1\n",
  919. + #endif GFLOAT
  920.   
  921.   SCONV,    INTAREG|FORCC,
  922.       SAREG|AWD,    TUCHAR|TUSHORT,
  923. ***************
  924. *** 114,119
  925.       SAREG|AWD,    TUCHAR|TUSHORT,
  926.       SANY,    TFLOAT|TDOUBLE,
  927.           NAREG|NASL,    RESC1|RESCC,
  928.           "    movzZLl    AL,A1\n    cvtld    A1,A1\n",
  929.   
  930.   SCONV,    INTAREG|FORCC,
  931.  
  932. --- 122,128 -----
  933.       SAREG|AWD,    TUCHAR|TUSHORT,
  934.       SANY,    TFLOAT|TDOUBLE,
  935.           NAREG|NASL,    RESC1|RESCC,
  936. + #ifndef GFLOAT
  937.           "    movzZLl    AL,A1\n    cvtld    A1,A1\n",
  938.   #else GFLOAT
  939.           "    movzZLl    AL,A1\n    cvtlg    A1,A1\n",
  940. ***************
  941. *** 115,120
  942.       SANY,    TFLOAT|TDOUBLE,
  943.           NAREG|NASL,    RESC1|RESCC,
  944.           "    movzZLl    AL,A1\n    cvtld    A1,A1\n",
  945.   
  946.   SCONV,    INTAREG|FORCC,
  947.       SAREG|AWD,    TFLOAT|TDOUBLE,
  948.  
  949. --- 124,132 -----
  950.           NAREG|NASL,    RESC1|RESCC,
  951.   #ifndef GFLOAT
  952.           "    movzZLl    AL,A1\n    cvtld    A1,A1\n",
  953. + #else GFLOAT
  954. +         "    movzZLl    AL,A1\n    cvtlg    A1,A1\n",
  955. + #endif GFLOAT
  956.   
  957.   SCONV,    INTAREG|FORCC,
  958.       SAREG|AWD,    TFLOAT|TDOUBLE,
  959. ***************
  960. *** 273,278
  961.       SAREG|AWD,    TDOUBLE,
  962.       SAREG|AWD,    TDOUBLE,
  963.           0,    RESCC,
  964.           "    cmpd    AL,AR\nZP",
  965.   
  966.   OPLOG,    FORCC,
  967.  
  968. --- 285,291 -----
  969.       SAREG|AWD,    TDOUBLE,
  970.       SAREG|AWD,    TDOUBLE,
  971.           0,    RESCC,
  972. + #ifndef GFLOAT
  973.           "    cmpd    AL,AR\nZP",
  974.   #else GFLOAT
  975.           "    cmpg    AL,AR\nZP",
  976. ***************
  977. *** 274,279
  978.       SAREG|AWD,    TDOUBLE,
  979.           0,    RESCC,
  980.           "    cmpd    AL,AR\nZP",
  981.   
  982.   OPLOG,    FORCC,
  983.       SAREG|AWD,    TDOUBLE,
  984.  
  985. --- 287,295 -----
  986.           0,    RESCC,
  987.   #ifndef GFLOAT
  988.           "    cmpd    AL,AR\nZP",
  989. + #else GFLOAT
  990. +         "    cmpg    AL,AR\nZP",
  991. + #endif GFLOAT
  992.   
  993.   OPLOG,    FORCC,
  994.       SAREG|AWD,    TDOUBLE,
  995. ***************
  996. *** 279,284
  997.       SAREG|AWD,    TDOUBLE,
  998.       SAREG|AWD,    TFLOAT,
  999.           NAREG|NASR,    RESCC,
  1000.           "    cvtfd    AR,A1\n    cmpd    AL,A1\nZP",
  1001.   
  1002.   OPLOG,    FORCC,
  1003.  
  1004. --- 295,301 -----
  1005.       SAREG|AWD,    TDOUBLE,
  1006.       SAREG|AWD,    TFLOAT,
  1007.           NAREG|NASR,    RESCC,
  1008. + #ifndef GFLOAT
  1009.           "    cvtfd    AR,A1\n    cmpd    AL,A1\nZP",
  1010.   #else GFLOAT
  1011.           "    cvtfg    AR,A1\n    cmpg    AL,A1\nZP",
  1012. ***************
  1013. *** 280,285
  1014.       SAREG|AWD,    TFLOAT,
  1015.           NAREG|NASR,    RESCC,
  1016.           "    cvtfd    AR,A1\n    cmpd    AL,A1\nZP",
  1017.   
  1018.   OPLOG,    FORCC,
  1019.       SAREG|AWD,    TFLOAT,
  1020.  
  1021. --- 297,305 -----
  1022.           NAREG|NASR,    RESCC,
  1023.   #ifndef GFLOAT
  1024.           "    cvtfd    AR,A1\n    cmpd    AL,A1\nZP",
  1025. + #else GFLOAT
  1026. +         "    cvtfg    AR,A1\n    cmpg    AL,A1\nZP",
  1027. + #endif GFLOAT
  1028.   
  1029.   OPLOG,    FORCC,
  1030.       SAREG|AWD,    TFLOAT,
  1031. ***************
  1032. *** 285,290
  1033.       SAREG|AWD,    TFLOAT,
  1034.       SAREG|AWD,    TDOUBLE,
  1035.           NAREG|NASL,    RESCC,
  1036.           "    cvtfd    AL,A1\n    cmpd    A1,AR\nZP",
  1037.   
  1038.   OPLOG,    FORCC,
  1039.  
  1040. --- 305,311 -----
  1041.       SAREG|AWD,    TFLOAT,
  1042.       SAREG|AWD,    TDOUBLE,
  1043.           NAREG|NASL,    RESCC,
  1044. + #ifndef GFLOAT
  1045.           "    cvtfd    AL,A1\n    cmpd    A1,AR\nZP",
  1046.   #else GFLOAT
  1047.           "    cvtfg    AL,A1\n    cmpg    A1,AR\nZP",
  1048. ***************
  1049. *** 286,291
  1050.       SAREG|AWD,    TDOUBLE,
  1051.           NAREG|NASL,    RESCC,
  1052.           "    cvtfd    AL,A1\n    cmpd    A1,AR\nZP",
  1053.   
  1054.   OPLOG,    FORCC,
  1055.       SAREG|AWD,    TFLOAT,
  1056.  
  1057. --- 307,315 -----
  1058.           NAREG|NASL,    RESCC,
  1059.   #ifndef GFLOAT
  1060.           "    cvtfd    AL,A1\n    cmpd    A1,AR\nZP",
  1061. + #else GFLOAT
  1062. +         "    cvtfg    AL,A1\n    cmpg    A1,AR\nZP",
  1063. + #endif GFLOAT
  1064.   
  1065.   OPLOG,    FORCC,
  1066.       SAREG|AWD,    TFLOAT,
  1067. ***************
  1068. *** 484,489
  1069.       SANY,    TANY,
  1070.       SAREG,    TDOUBLE,
  1071.           2*NTEMP,    RESC1,
  1072.           "    movd    AR,A1\n",
  1073.   
  1074.   REG,    INTEMP,
  1075.  
  1076. --- 508,514 -----
  1077.       SANY,    TANY,
  1078.       SAREG,    TDOUBLE,
  1079.           2*NTEMP,    RESC1,
  1080. + #ifndef GFLOAT
  1081.           "    movd    AR,A1\n",
  1082.   #else GFLOAT
  1083.           "    movg    AR,A1\n",
  1084. ***************
  1085. *** 485,490
  1086.       SAREG,    TDOUBLE,
  1087.           2*NTEMP,    RESC1,
  1088.           "    movd    AR,A1\n",
  1089.   
  1090.   REG,    INTEMP,
  1091.       SANY,    TANY,
  1092.  
  1093. --- 510,518 -----
  1094.           2*NTEMP,    RESC1,
  1095.   #ifndef GFLOAT
  1096.           "    movd    AR,A1\n",
  1097. + #else GFLOAT
  1098. +         "    movg    AR,A1\n",
  1099. + #endif GFLOAT
  1100.   
  1101.   REG,    INTEMP,
  1102.       SANY,    TANY,
  1103. ***************
  1104. *** 497,502
  1105.       SANY,    TANY,
  1106.       SAREG,    TFLOAT,
  1107.           0,    RNULL,
  1108.           "    cvtfd    AR,-(sp)\n",
  1109.   
  1110.   REG,    FORARG,
  1111.  
  1112. --- 525,531 -----
  1113.       SANY,    TANY,
  1114.       SAREG,    TFLOAT,
  1115.           0,    RNULL,
  1116. + #ifndef GFLOAT
  1117.           "    cvtfd    AR,-(sp)\n",
  1118.   #else GFLOAT
  1119.           "    cvtfg    AR,-(sp)\n",
  1120. ***************
  1121. *** 498,503
  1122.       SAREG,    TFLOAT,
  1123.           0,    RNULL,
  1124.           "    cvtfd    AR,-(sp)\n",
  1125.   
  1126.   REG,    FORARG,
  1127.       SANY,    TANY,
  1128.  
  1129. --- 527,535 -----
  1130.           0,    RNULL,
  1131.   #ifndef GFLOAT
  1132.           "    cvtfd    AR,-(sp)\n",
  1133. + #else GFLOAT
  1134. +         "    cvtfg    AR,-(sp)\n",
  1135. + #endif GFLOAT
  1136.   
  1137.   REG,    FORARG,
  1138.       SANY,    TANY,
  1139. ***************
  1140. *** 552,557
  1141.       SANY,    TANY,
  1142.       SANY,    TDOUBLE,
  1143.           0,    RNULL,
  1144.           "    movd    AR,-(sp)\n",
  1145.   
  1146.   OPLTYPE,    FORARG,
  1147.  
  1148. --- 584,590 -----
  1149.       SANY,    TANY,
  1150.       SANY,    TDOUBLE,
  1151.           0,    RNULL,
  1152. + #ifndef GFLOAT
  1153.           "    movd    AR,-(sp)\n",
  1154.   #else GFLOAT
  1155.           "    movg    AR,-(sp)\n",
  1156. ***************
  1157. *** 553,558
  1158.       SANY,    TDOUBLE,
  1159.           0,    RNULL,
  1160.           "    movd    AR,-(sp)\n",
  1161.   
  1162.   OPLTYPE,    FORARG,
  1163.       SANY,    TANY,
  1164.  
  1165. --- 586,594 -----
  1166.           0,    RNULL,
  1167.   #ifndef GFLOAT
  1168.           "    movd    AR,-(sp)\n",
  1169. + #else GFLOAT
  1170. +         "    movg    AR,-(sp)\n",
  1171. + #endif GFLOAT
  1172.   
  1173.   OPLTYPE,    FORARG,
  1174.       SANY,    TANY,
  1175. ***************
  1176. *** 558,563
  1177.       SANY,    TANY,
  1178.       SANY,    TFLOAT,
  1179.           0,    RNULL,
  1180.           "    cvtfd    AR,-(sp)\n",
  1181.   
  1182.   #ifdef FORT
  1183.  
  1184. --- 594,600 -----
  1185.       SANY,    TANY,
  1186.       SANY,    TFLOAT,
  1187.           0,    RNULL,
  1188. + #ifndef GFLOAT
  1189.           "    cvtfd    AR,-(sp)\n",
  1190.   #else GFLOAT
  1191.           "    cvtfg    AR,-(sp)\n",
  1192. ***************
  1193. *** 559,564
  1194.       SANY,    TFLOAT,
  1195.           0,    RNULL,
  1196.           "    cvtfd    AR,-(sp)\n",
  1197.   
  1198.   #ifdef FORT
  1199.   UNARY MINUS,    INTAREG|FORCC,
  1200.  
  1201. --- 596,604 -----
  1202.           0,    RNULL,
  1203.   #ifndef GFLOAT
  1204.           "    cvtfd    AR,-(sp)\n",
  1205. + #else GFLOAT
  1206. +         "    cvtfg    AR,-(sp)\n",
  1207. + #endif GFLOAT
  1208.   
  1209.   #ifdef FORT
  1210.   UNARY MINUS,    INTAREG|FORCC,
  1211. ***************
  1212. *** 814,819
  1213.       SAREG|AWD,    TDOUBLE,
  1214.       SAREG|AWD,    TFLOAT,
  1215.           NAREG,    RLEFT|RESCC,
  1216.           "    cvtfd    AR,A1\n    OD2    A1,AL\n",
  1217.   
  1218.   ASG OPFLOAT,    INAREG|INTAREG|FOREFF|FORCC,
  1219.  
  1220. --- 854,860 -----
  1221.       SAREG|AWD,    TDOUBLE,
  1222.       SAREG|AWD,    TFLOAT,
  1223.           NAREG,    RLEFT|RESCC,
  1224. + #ifndef GFLOAT
  1225.           "    cvtfd    AR,A1\n    OD2    A1,AL\n",
  1226.   #else GFLOAT
  1227.           "    cvtfg    AR,A1\n    OD2    A1,AL\n",
  1228. ***************
  1229. *** 815,820
  1230.       SAREG|AWD,    TFLOAT,
  1231.           NAREG,    RLEFT|RESCC,
  1232.           "    cvtfd    AR,A1\n    OD2    A1,AL\n",
  1233.   
  1234.   ASG OPFLOAT,    INAREG|INTAREG|FOREFF|FORCC,
  1235.       SAREG|AWD,    TFLOAT,
  1236.  
  1237. --- 856,864 -----
  1238.           NAREG,    RLEFT|RESCC,
  1239.   #ifndef GFLOAT
  1240.           "    cvtfd    AR,A1\n    OD2    A1,AL\n",
  1241. + #else GFLOAT
  1242. +         "    cvtfg    AR,A1\n    OD2    A1,AL\n",
  1243. + #endif GFLOAT
  1244.   
  1245.   ASG OPFLOAT,    INAREG|INTAREG|FOREFF|FORCC,
  1246.       SAREG|AWD,    TFLOAT,
  1247. ***************
  1248. *** 820,825
  1249.       SAREG|AWD,    TFLOAT,
  1250.       SAREG|AWD,    TDOUBLE,
  1251.           NAREG,    RLEFT|RESC1|RESCC,
  1252.           "    cvtfd    AL,A1\n    OD2    AR,A1\n    cvtdf    A1,AL\n",
  1253.   
  1254.   OPFLOAT,    INAREG|INTAREG|FORCC,
  1255.  
  1256. --- 864,870 -----
  1257.       SAREG|AWD,    TFLOAT,
  1258.       SAREG|AWD,    TDOUBLE,
  1259.           NAREG,    RLEFT|RESC1|RESCC,
  1260. + #ifndef GFLOAT
  1261.           "    cvtfd    AL,A1\n    OD2    AR,A1\n    cvtdf    A1,AL\n",
  1262.   #else GFLOAT
  1263.           "    cvtfg    AL,A1\n    OD2    AR,A1\n    cvtgf    A1,AL\n",
  1264. ***************
  1265. *** 821,826
  1266.       SAREG|AWD,    TDOUBLE,
  1267.           NAREG,    RLEFT|RESC1|RESCC,
  1268.           "    cvtfd    AL,A1\n    OD2    AR,A1\n    cvtdf    A1,AL\n",
  1269.   
  1270.   OPFLOAT,    INAREG|INTAREG|FORCC,
  1271.       STAREG,    TDOUBLE,
  1272.  
  1273. --- 866,874 -----
  1274.           NAREG,    RLEFT|RESC1|RESCC,
  1275.   #ifndef GFLOAT
  1276.           "    cvtfd    AL,A1\n    OD2    AR,A1\n    cvtdf    A1,AL\n",
  1277. + #else GFLOAT
  1278. +         "    cvtfg    AL,A1\n    OD2    AR,A1\n    cvtgf    A1,AL\n",
  1279. + #endif GFLOAT
  1280.   
  1281.   OPFLOAT,    INAREG|INTAREG|FORCC,
  1282.       STAREG,    TDOUBLE,
  1283. ***************
  1284. *** 838,843
  1285.       SAREG|AWD,    TFLOAT,
  1286.       SAREG|AWD,    TDOUBLE,
  1287.           NAREG|NASL,    RESC1|RESCC,
  1288.           "    cvtfd    AL,A1\n    OD2    AR,A1\n",
  1289.   
  1290.   OPFLOAT,    INAREG|INTAREG|FORCC,
  1291.  
  1292. --- 886,892 -----
  1293.       SAREG|AWD,    TFLOAT,
  1294.       SAREG|AWD,    TDOUBLE,
  1295.           NAREG|NASL,    RESC1|RESCC,
  1296. + #ifndef GFLOAT
  1297.           "    cvtfd    AL,A1\n    OD2    AR,A1\n",
  1298.   #else GFLOAT
  1299.           "    cvtfg    AL,A1\n    OD2    AR,A1\n",
  1300. ***************
  1301. *** 839,844
  1302.       SAREG|AWD,    TDOUBLE,
  1303.           NAREG|NASL,    RESC1|RESCC,
  1304.           "    cvtfd    AL,A1\n    OD2    AR,A1\n",
  1305.   
  1306.   OPFLOAT,    INAREG|INTAREG|FORCC,
  1307.       SAREG|AWD,    TDOUBLE,
  1308.  
  1309. --- 888,896 -----
  1310.           NAREG|NASL,    RESC1|RESCC,
  1311.   #ifndef GFLOAT
  1312.           "    cvtfd    AL,A1\n    OD2    AR,A1\n",
  1313. + #else GFLOAT
  1314. +         "    cvtfg    AL,A1\n    OD2    AR,A1\n",
  1315. + #endif GFLOAT
  1316.   
  1317.   OPFLOAT,    INAREG|INTAREG|FORCC,
  1318.       SAREG|AWD,    TDOUBLE,
  1319. ***************
  1320. *** 844,849
  1321.       SAREG|AWD,    TDOUBLE,
  1322.       SAREG|AWD,    TFLOAT,
  1323.           NAREG|NASR,    RESC1|RESCC,
  1324.           "    cvtfd    AR,A1\n    OD3    A1,AL,A1\n",
  1325.   
  1326.   #ifdef FORT
  1327.  
  1328. --- 896,902 -----
  1329.       SAREG|AWD,    TDOUBLE,
  1330.       SAREG|AWD,    TFLOAT,
  1331.           NAREG|NASR,    RESC1|RESCC,
  1332. + #ifndef GFLOAT
  1333.           "    cvtfd    AR,A1\n    OD3    A1,AL,A1\n",
  1334.   #else GFLOAT
  1335.           "    cvtfg    AR,A1\n    OD3    A1,AL,A1\n",
  1336. ***************
  1337. *** 845,850
  1338.       SAREG|AWD,    TFLOAT,
  1339.           NAREG|NASR,    RESC1|RESCC,
  1340.           "    cvtfd    AR,A1\n    OD3    A1,AL,A1\n",
  1341.   
  1342.   #ifdef FORT
  1343.   OPFLOAT,    INAREG|INTAREG|FORCC,
  1344.  
  1345. --- 898,906 -----
  1346.           NAREG|NASR,    RESC1|RESCC,
  1347.   #ifndef GFLOAT
  1348.           "    cvtfd    AR,A1\n    OD3    A1,AL,A1\n",
  1349. + #else GFLOAT
  1350. +         "    cvtfg    AR,A1\n    OD3    A1,AL,A1\n",
  1351. + #endif GFLOAT
  1352.   
  1353.   #ifdef FORT
  1354.   OPFLOAT,    INAREG|INTAREG|FORCC,
  1355. ***************
  1356. *** 864,869
  1357.       SAREG|AWD,    TFLOAT,
  1358.       SAREG|AWD,    TFLOAT,
  1359.           NAREG|NASL|NASR,    RESC1|RESCC,
  1360.           "    OF3    AR,AL,A1\n    cvtfd    A1,A1\n",
  1361.   #endif
  1362.   
  1363.  
  1364. --- 920,926 -----
  1365.       SAREG|AWD,    TFLOAT,
  1366.       SAREG|AWD,    TFLOAT,
  1367.           NAREG|NASL|NASR,    RESC1|RESCC,
  1368. + #ifndef GFLOAT
  1369.           "    OF3    AR,AL,A1\n    cvtfd    A1,A1\n",
  1370.   #else GFLOAT
  1371.           "    OF3    AR,AL,A1\n    cvtfg    A1,A1\n",
  1372. ***************
  1373. *** 865,870
  1374.       SAREG|AWD,    TFLOAT,
  1375.           NAREG|NASL|NASR,    RESC1|RESCC,
  1376.           "    OF3    AR,AL,A1\n    cvtfd    A1,A1\n",
  1377.   #endif
  1378.   
  1379.       /* Default actions for hard trees ... */
  1380.  
  1381. --- 922,930 -----
  1382.           NAREG|NASL|NASR,    RESC1|RESCC,
  1383.   #ifndef GFLOAT
  1384.           "    OF3    AR,AL,A1\n    cvtfd    A1,A1\n",
  1385. + #else GFLOAT
  1386. +         "    OF3    AR,AL,A1\n    cvtfg    A1,A1\n",
  1387. + #endif GFLOAT
  1388.   #endif
  1389.   
  1390.       /* Default actions for hard trees ... */
  1391. SHAR_EOF
  1392. chmod +x 'table.c.diff'
  1393. chdir ..
  1394. if test ! -d 'f2'
  1395. then
  1396.     mkdir 'f2'
  1397. fi
  1398. cd 'f2'
  1399. if test -f 'c22.c.diff'
  1400. then
  1401.     echo shar: over-writing existing file "'c22.c.diff'"
  1402. fi
  1403. cat << \SHAR_EOF > 'c22.c.diff'
  1404. 35a36
  1405. > #ifndef GFLOAT
  1406. 36a38,40
  1407. > #else GFLOAT
  1408. > "acbg",T(ACB,DOUBLE),
  1409. > #endif GFLOAT
  1410. 41a46
  1411. > #ifndef GFLOAT
  1412. 43a49,52
  1413. > #else GFLOAT
  1414. > "addg2",T(ADD,U(DOUBLE,OP2)),
  1415. > "addg3",T(ADD,U(DOUBLE,OP3)),
  1416. > #endif GFLOAT
  1417. 102a112
  1418. > #ifndef GFLOAT
  1419. 103a114,116
  1420. > #else GFLOAT
  1421. > "clrg",T(CLR,DOUBLE),
  1422. > #endif GFLOAT
  1423. 108a122
  1424. > #ifndef GFLOAT
  1425. 109a124,126
  1426. > #else GFLOAT
  1427. > "cmpg",T(CMP,DOUBLE),
  1428. > #endif GFLOAT
  1429. 112a130
  1430. > #ifndef GFLOAT
  1431. 113a132,134
  1432. > #else GFLOAT
  1433. > "cvtbg",T(CVT,U(BYTE,DOUBLE)),
  1434. > #endif GFLOAT
  1435. 116a138
  1436. > #ifndef GFLOAT
  1437. 120a143,148
  1438. > #else GFLOAT
  1439. > "cvtgb",T(CVT,U(DOUBLE,BYTE)),
  1440. > "cvtgf",T(CVT,U(DOUBLE,FLOAT)),
  1441. > "cvtgl",T(CVT,U(DOUBLE,LONG)),
  1442. > "cvtgw",T(CVT,U(DOUBLE,WORD)),
  1443. > #endif GFLOAT
  1444. 121a150
  1445. > #ifndef GFLOAT
  1446. 122a152,154
  1447. > #else GFLOAT
  1448. > "cvtfg",T(CVT,U(FLOAT,DOUBLE)),
  1449. > #endif GFLOAT
  1450. 125a158
  1451. > #ifndef GFLOAT
  1452. 126a160,162
  1453. > #else GFLOAT
  1454. > "cvtlg",T(CVT,U(LONG,DOUBLE)),
  1455. > #endif GFLOAT
  1456. 128a165
  1457. > #ifndef GFLOAT
  1458. 129a167,169
  1459. > #else GFLOAT
  1460. > "cvtrgl",T(CVT,U(DOUBLE,LONG)),
  1461. > #endif GFLOAT
  1462. 131a172
  1463. > #ifndef GFLOAT
  1464. 132a174,176
  1465. > #else GFLOAT
  1466. > "cvtwg",T(CVT,U(WORD,DOUBLE)),
  1467. > #endif GFLOAT
  1468. 139a184
  1469. > #ifndef GFLOAT
  1470. 141a187,190
  1471. > #else GFLOAT
  1472. > "divg2",T(DIV,U(DOUBLE,OP2)),
  1473. > "divg3",T(DIV,U(DOUBLE,OP3)),
  1474. > #endif GFLOAT
  1475. 158a208
  1476. > #ifndef GFLOAT
  1477. 159a210,212
  1478. > #else GFLOAT
  1479. > "mnegg",T(NEG,DOUBLE),
  1480. > #endif GFLOAT
  1481. 163a217
  1482. > #ifndef GFLOAT
  1483. 164a219,221
  1484. > #else GFLOAT
  1485. > "movag",T(MOVA,DOUBLE),
  1486. > #endif GFLOAT
  1487. 169a227
  1488. > #ifndef GFLOAT
  1489. 170a229,231
  1490. > #else GFLOAT
  1491. > "movg",T(MOV,DOUBLE),
  1492. > #endif GFLOAT
  1493. 179a241
  1494. > #ifndef GFLOAT
  1495. 181a244,247
  1496. > #else GFLOAT
  1497. > "mulg2",T(MUL,U(DOUBLE,OP2)),
  1498. > "mulg3",T(MUL,U(DOUBLE,OP3)),
  1499. > #endif GFLOAT
  1500. 188a255
  1501. > #ifndef GFLOAT
  1502. 189a257,259
  1503. > #else GFLOAT
  1504. > "pushag",T(PUSHA,DOUBLE),
  1505. > #endif GFLOAT
  1506. 199a270
  1507. > #ifndef GFLOAT
  1508. 201a273,276
  1509. > #else GFLOAT
  1510. > "subg2",T(SUB,U(DOUBLE,OP2)),
  1511. > "subg3",T(SUB,U(DOUBLE,OP3)),
  1512. > #endif GFLOAT
  1513. 208a284
  1514. > #ifndef GFLOAT
  1515. 209a286,288
  1516. > #else GFLOAT
  1517. > "tstg",T(TST,DOUBLE),
  1518. > #endif GFLOAT
  1519. 266a346
  1520. > #ifndef GFLOAT
  1521. 267a348,350
  1522. > #else GFLOAT
  1523. > "emodg",0,
  1524. > #endif GFLOAT
  1525. 284a368
  1526. > #ifndef GFLOAT
  1527. 285a370,372
  1528. > #else GFLOAT
  1529. > "polyg",0,
  1530. > #endif GFLOAT
  1531. SHAR_EOF
  1532. chmod +x 'c22.c.diff'
  1533. if test -f 'Makefile.diff'
  1534. then
  1535.     echo shar: over-writing existing file "'Makefile.diff'"
  1536. fi
  1537. cat << \SHAR_EOF > 'Makefile.diff'
  1538. 4c4
  1539. < CFLAGS          = -w -DCOPYCODE
  1540. ---
  1541. > CFLAGS          = -w -DCOPYCODE -DGFLOAT
  1542. SHAR_EOF
  1543. chmod +x 'Makefile.diff'
  1544. chdir ..
  1545. chdir ..
  1546. chdir ..
  1547. chdir ..
  1548. #    End of shell archive
  1549. exit 0
  1550.  
  1551.